home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EXEC.SWG / 0027_Easy Prompt Changing in Shells.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-03  |  375b  |  23 lines
  1. {
  2.   That won't work, actually. He wants to change the _prompt_ in his
  3.   shell. Here's one way:
  4. }
  5.  
  6. {$m 4096,0,0}
  7. uses
  8.   dos;
  9.  
  10. var
  11.   f : text;
  12.  
  13. begin
  14.   assign(f,'chgprmpt.bat');
  15.   rewrite(f);
  16.   writeln(f,'@set prompt=Type EXIT to return to '+paramstr(0)+'$g');
  17.   close(f);
  18.  
  19.   swapvectors;
  20.   exec(getenv('COMSPEC'),'/K chgprmpt.bat');
  21.   swapvectors;
  22. end.
  23.